home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / DUMPUSER < prev    next >
Text File  |  1997-04-05  |  273b  |  4 lines
  1. DUMPUSER:procedure;arg p,d,q;if q~=1 then q=0;rl="";if d=6 then rl="L1109806 #2}"
  2.   getportid p;if result=-1|~datatype(p,"W")|~datatype(d,"W")|d<0|d>11 then return 0
  3.   address ("CNETREXX"p);sendstring "L1109799 #"q"}L1200022 #"d"}"rl"L1109807 #1}";addkeys "`";return 1
  4.